home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_010_19xx_-_de_Side_B.d64 / blagger 1701 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  949b  |  35 lines
  1. 10 poke53280,5:poke53281,7:print"[147][144]loading!!"
  2. 20 ifpeek(2)=0thenpoke2,1:load"bla1",8,1
  3. 30 poke45,180:poke46,11:clr
  4. 35 print"[147] blagger construction set"
  5. 36 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  6. 37 print"by 1701"
  7. 38 print"[197][197][197][197][197][197][197]"
  8. 40 print"(1)[146] play blagger"
  9. 50 print"(2)[146] edit blagger"
  10. 60 print"(3)[146] load level"
  11. 70 print"(4)[146] exit"
  12. 80 poke198,0:wait198,1:geta$:ifa$="4"thensys64738
  13. 90 ifa$="1"then130
  14. 100 ifa$="2"then180
  15. 110 ifa$="3"then240
  16. 120 goto80    
  17. 130 print"[147]loading!!"
  18. 140 print"[158]load"chr$(34)"bla4"chr$(34)",8,1"
  19. 150 print"new"
  20. 160 print"load"chr$(34)"bla2"chr$(34)",8"
  21. 170 print"sys3000":goto500
  22. 180 print"[147]loading!!"
  23. 190 print"[158]load"chr$(34)"bla5"chr$(34)",8,1"
  24. 200 print"new"
  25. 210 print"load"chr$(34)"bla3"chr$(34)",8"
  26. 220 print"run"
  27. 230 goto500
  28. 240 input"[147]filename =<16 tkn.";a$
  29. 250 l=len(a$):ifl>16orl<1then240
  30. 260 print"[147]loading!!"
  31. 270 print"[158]load"chr$(34)a$chr$(34)",8,1"
  32. 280 print"run"
  33. 290 poke631,19:poke632,17:poke633,13:poke634,13:poke635,13:poke198,5:end
  34. 500 poke631,19:poke632,17:fort=2to9:poke631+t,13:next:poke198,t:new
  35.